home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / R-LETTER.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  5.9 KB  |  106 lines
  1. 100  '********************************************************************
  2. 110  '**                   ROTATE-A-LETTER                              **
  3. 120  '**                                                                **
  4. 130  '**  VERS 1.1                                        SEPT 11,1982  **
  5. 140  '**                                                                **
  6. 150  '**  WHEN USED WITH `ROTATE-FONT' THIS PROGRAM WILL PRINT A        **
  7. 160  '**  7 PAGE MESSAGE THAT WILL PRINT UP THE PAGE WITH ALL           **
  8. 170  '**  CHARACTERS ON THEIR SIDE                                      **
  9. 180  '**  TO USE CHANGE THESE LINES (650 THRU THE END OF THE LISTING)   **
  10. 190  '**  WITH THE LAST LINES IN ROTATE-FONT (LINES 720 ON)             **
  11. 200  '********************************************************************
  12. 210  '
  13. 650  '*********************************************************************
  14. 660  '**  THIS ROUTINE IS A SIMPLE DRIVER SO YOU CAN PRINT OUT MESSAGES  **
  15. 670  '**  WITH THIS PROGRAM WITH THE LINES GOING UP THE PAGE             **
  16. 680  '*********************************************************************
  17. 690  ON ERROR GOTO 800
  18. 700  CLS : SCREEN 1 : X = 24 : Y = 1
  19. 710  READ Z$ : FOR M = 1 TO 24
  20. 720  Q$ = MID$(Z$,M,1)
  21. 730  B = ASC(Q$) + 128
  22. 740  LOCATE X,Y : PRINT CHR$(B);
  23. 750  X = X-1 : IF X = 0 THEN X = 24 : Y = Y + 2
  24. 760  IF Y > 40 THEN GOTO 790
  25. 770  NEXT M
  26. 780  GOTO 710
  27. 790  C$ = INKEY$ : IF C$ = "" THEN 790 ELSE 700
  28. 800  GOTO 800
  29. 810  '*****************************   TOP OF PAGE #1
  30. 820  DATA "1                       ","2                       "
  31. 830  DATA "3                       ","4                       "
  32. 840  DATA "5                       ","6                       "
  33. 850  DATA "7                       ","8                       "
  34. 860  DATA "9                       ","10                      "
  35. 870  DATA "11                      ","12                      "
  36. 880  DATA "13                      ","14                      "
  37. 890  DATA "15                      ","16                      "
  38. 900  DATA "17                      ","18                      "
  39. 910  DATA "19                      ","PRESS ENTER TO CONTINUE "
  40. 920  '*****************************   TOP OF PAGE #2
  41. 930  DATA "                        ","                        "
  42. 940  DATA "                        ","                        "
  43. 950  DATA "                        ","                        "
  44. 960  DATA "                        ","                        "
  45. 970  DATA "                        ","                        "
  46. 980  DATA "                        ","                        "
  47. 990  DATA "                        ","                        "
  48. 1000  DATA "                        ","                        "
  49. 1010  DATA "                        ","                        "
  50. 1020  DATA "                        ","PRESS ENTER TO CONTINUE "
  51. 1030  '*****************************   TOP OF PAGE #3
  52. 1040  DATA "                        ","                        "
  53. 1050  DATA "                        ","                        "
  54. 1060  DATA "                        ","                        "
  55. 1070  DATA "                        ","                        "
  56. 1080  DATA "                        ","                        "
  57. 1090  DATA "                        ","                        "
  58. 1100  DATA "                        ","                        "
  59. 1110  DATA "                        ","                        "
  60. 1120  DATA "                        ","                        "
  61. 1130  DATA "                        ","PRESS ENTER TO CONTINUE "
  62. 1140  '*****************************   TOP OF PAGE #4
  63. 1150  DATA "                        ","                        "
  64. 1160  DATA "                        ","                        "
  65. 1170  DATA "                        ","                        "
  66. 1180  DATA "                        ","                        "
  67. 1190  DATA "                        ","                        "
  68. 1200  DATA "                        ","                        "
  69. 1210  DATA "                        ","                        "
  70. 1220  DATA "                        ","                        "
  71. 1230  DATA "                        ","                        "
  72. 1240  DATA "                        ","PRESS ENTER TO CONTINUE "
  73. 1250  '*****************************   TOP OF PAGE #5
  74. 1260  DATA "                        ","                        "
  75. 1270  DATA "                        ","                        "
  76. 1280  DATA "                        ","                        "
  77. 1290  DATA "                        ","                        "
  78. 1300  DATA "                        ","                        "
  79. 1310  DATA "                        ","                        "
  80. 1320  DATA "                        ","                        "
  81. 1330  DATA "                        ","                        "
  82. 1340  DATA "                        ","                        "
  83. 1350  DATA "                        ","PRESS ENTER TO CONTINUE "
  84. 1360  '*****************************   TOP OF PAGE #6
  85. 1370  DATA "                        ","                        "
  86. 1380  DATA "                        ","                        "
  87. 1390  DATA "                        ","                        "
  88. 1400  DATA "                        ","                        "
  89. 1410  DATA "                        ","                        "
  90. 1420  DATA "                        ","                        "
  91. 1430  DATA "                        ","                        "
  92. 1440  DATA "                        ","                        "
  93. 1450  DATA "                        ","                        "
  94. 1460  DATA "                        ","PRESS ENTER TO CONTINUE "
  95. 1470  '*****************************   TOP OF PAGE #7
  96. 1480  DATA "                        ","                        "
  97. 1490  DATA "                        ","                        "
  98. 1500  DATA "                        ","                        "
  99. 1510  DATA "                        ","                        "
  100. 1520  DATA "                        ","                        "
  101. 1530  DATA "                        ","                        "
  102. 1540  DATA "                        ","                        "
  103. 1550  DATA "                        ","                        "
  104. 1560  DATA "                        ","                        "
  105. 1570  DATA "                        ","PRESS ENTER TO CONTINUE "
  106.